home *** CD-ROM | disk | FTP | other *** search
/ Tears Of The Sun Press Kit / Tears of the Sun Press Kit.iso / pc / acrobat reader 5 pc / acrord32.exe / PSPROCSET / 18 < prev    next >
Text File  |  2002-12-13  |  2KB  |  106 lines
  1. %%BeginResource: procset pdflev2
  2. %%Version: 5.0 15
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 2
  5. %%Title: PDF operators, with code specific for Level 2
  6. /docinitialize {
  7. PDF begin
  8. /_defaulthalftone currenthalftone dd
  9. /_defaultblackgeneration currentblackgeneration dd
  10. /_defaultundercolorremoval currentundercolorremoval dd
  11. /_defaultcolortransfer [currentcolortransfer] dd
  12. /_defaulttransfer currenttransfer dd
  13. end
  14. PDFVars /docSetupDone true put
  15. } bd
  16. /initialize {
  17. PDFVars /docSetupDone get {
  18. _defaulthalftone sethalftone
  19. /_defaultblackgeneration load setblackgeneration
  20. /_defaultundercolorremoval load setundercolorremoval
  21. _defaultcolortransfer aload pop setcolortransfer
  22. } if
  23. false setoverprint
  24. } bd
  25. /terminate { } bd
  26. /c /curveto ld
  27. /cs /setcolorspace ld
  28. /l /lineto ld
  29. /m /moveto ld
  30. /q /gsave ld
  31. /Q /grestore ld
  32. /sc /setcolor ld
  33. /setSA/setstrokeadjust ld
  34. /re {
  35. 4 2 roll m
  36. 1 index 0 rlineto
  37. 0 exch rlineto
  38. neg 0 rlineto
  39. h
  40. } bd
  41. /concattransferfuncs {
  42. [ 3 1 roll /exec load exch /exec load ] cvx
  43. } bd
  44. /concatandsettransfer {
  45. /_defaulttransfer load concattransferfuncs settransfer
  46. } bd
  47. /concatandsetcolortransfer {
  48. _defaultcolortransfer aload pop
  49. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  50. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  51. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  52. concattransferfuncs
  53. setcolortransfer
  54. } bd
  55. /defineRes/defineresource ld
  56. /findRes/findresource ld
  57. currentglobal
  58. true systemdict /setglobal get exec
  59. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource /Image]
  60. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  61. forall
  62. systemdict /setglobal get exec
  63. /ri
  64. {
  65. /findcolorrendering isdefined?
  66. {
  67. mark exch
  68. findcolorrendering
  69. counttomark 2 eq
  70. { type /booleantype eq
  71. { dup type /nametype eq
  72. { dup /ColorRendering resourcestatus
  73. { pop pop
  74. dup /DefaultColorRendering ne
  75. {
  76. /ColorRendering findresource
  77. setcolorrendering
  78. } if
  79. } if
  80. } if
  81. } if
  82. } if
  83. cleartomark
  84. }
  85. { pop
  86. } ifelse
  87. } bd
  88. /knownColorants? {
  89. pop false
  90. } bd
  91. /getrampcolor {
  92. /indx exch def
  93. 0 1 NumComp 1 sub {
  94. dup
  95. Samples exch get
  96. dup type /stringtype eq { indx get } if
  97. exch
  98. Scaling exch get aload pop
  99. 3 1 roll
  100. mul add
  101. } for
  102. setcolor
  103. } bd
  104. /sssetbackground { aload pop setcolor } bd
  105. %%EndResource
  106.